home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FLASHCOM.DSK / RODS COLOR PATTERN.int < prev    next >
Text File  |  2014-09-09  |  1KB  |  34 lines
  1. 50 GOSUB 5000
  2. 100 CALL -936:GR :VTAB 23:TAB 12:PRINT "RODS COLOR PATTERN":TAB 8:PRINT MSG$
  3. 110 FOR W=3 TO 50
  4. 120 FOR I=1 TO 19
  5. 130 FOR J=0 TO 19:K=I+J
  6. 150 COLOR= J*3/(I+3)+I*W/12
  7. 160 PLOT I,K:PLOT K,I:PLOT 40-I,40-K
  8. 170 PLOT 40-K,40-I:PLOT K,40-I:PLOT 40-I,K:PLOT I,40-K:PLOT 40-K,I
  9. 180 NEXT J,I,W
  10. 999 END 
  11. 5000 W=I=J=K:DIM QWE(2),MSG$(200):MSG$="SLOW INTEGER BASIC VERSION"
  12. 5010 QWE=1:QWE(0)=2:IF QWE=2 THEN 5999
  13. 5020 MSG$="FLASH!  COMPILED  VERSION"
  14. 5999 RETURN 
  15. 10000 REM ROD'S COLOR PATTERN
  16. 10010 REM 
  17. 10020 REM RUNS IN 446 SEC. UNDER
  18. 10030 REM INTEGER BASIC INTERPRETER.
  19. 10040 REM 
  20. 10050 REM RUNS IN 109 SEC. UNDER
  21. 10060 REM FLASH!
  22. 10070 REM 
  23. 10080 REM SPEED UP OF 4.1 TIMES.
  24. 10090 REM NOTE THAT THIS IS ONE OF
  25. 10100 REM FASTEST INTEGER PROGRAMS
  26. 10110 REM SINCE IT HAS ONLY 4
  27. 10120 REM VARIABLES AND NO GOTO'S.
  28. 10130 REM 
  29. 10140 REM FOR LOOPS DO NOT DO A LINE
  30. 10150 REM NUMBER SEARCH THROUGH THE
  31. 10160 REM PROGRAM IN INTEGER BASIC
  32. 10170 REM BUT BASIC REMEMBERS THE
  33. 10180 REM CODE ADDRESS TO RETURN TO.
  34.